home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaf.d64 / func.superchip < prev    next >
Text File  |  2007-02-28  |  302b  |  14 lines
  1. 0010 ╞╒╬├ SUPERCHIP ├╠╧╙┼─
  2. 0020   ╒╙┼ SYSTEM
  3. 0030   SETPAGE($84); CHIP:=╘╥╒┼
  4. 0040   ╥┼╙╘╧╥┼ CHIPDATA
  5. 0050   ╞╧╥ X:=$8014 ╘╧ $8018 ─╧
  6. 0060     ╥┼┴─ NUM
  7. 0070     ╔╞ ╨┼┼╦(X)<>NUM ╘╚┼╬ CHIP:=╞┴╠╙┼
  8. 0080   ┼╬─╞╧╥ X
  9. 0090   ╥┼╘╒╥╬ CHIP
  10. 0100   //
  11. 0110 CHIPDATA:
  12. 0120   ─┴╘┴ 4,67,49,50,56
  13. 0130 ┼╬─╞╒╬├ SUPERCHIP
  14.